home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / macros / lamstex / inputs / dblacc.tex < prev    next >
Text File  |  1991-09-06  |  2KB  |  56 lines
  1. \catcode`\@=11
  2. \def\theskewchar@{\global\familycount@\@ne
  3.  \global\skewcharcount@\the\skewchar\textfont\@ne
  4.  \ifnum\fam>\m@ne\ifnum\fam<16
  5.   \global\familycount@\the\fam\relax
  6.   \global\skewcharcount@\the\skewchar\textfont\the\fam\relax\fi\fi
  7.  \ifnum\skewcharcount@>\m@ne
  8.   \ifnum\skewcharcount@<128
  9.   \global\multiply\familycount@256
  10.   \global\advance\skewcharcount@\familycount@
  11.   \global\advance\skewcharcount@28672
  12.   \mathchar\skewcharcount@\else
  13.   \global\skewcharcount@\m@ne\fi\else
  14.  \global\skewcharcount@\m@ne\fi}
  15. \def\getpoints@#1.#2\getpoints@{\pointcount@#1 }
  16. \def\dimentomu@{\global\multiply\accentdimen@ 100
  17.  \expandafter\getpoints@\the\accentdimen@\getpoints@
  18.  \multiply\pointcount@18
  19.  \divide\pointcount@\@m
  20.  \global\accentmu@\pointcount@}
  21. \def\Makeacc@#1#2{\def#1{\RIfM@\DN@{\mathaccent@
  22.  {"\accentclass@#2 }}\else\DN@{\nonmatherr@{#1}}\fi\next@}}
  23. \def\unbracefonts@{\let\Cal@\Cal@@\let\rom@\rom@@\let\bold@\bold@@
  24.  \let\slanted@\slanted@@}
  25. \def\mathaccent@#1#2{\ifnum\fam=\m@ne\xdef\thefam@{1}\else
  26.  \xdef\thefam@{\the\fam}\fi
  27.  \global\accentdimen@\z@
  28.  \setboxz@h{\unbracefonts@$\m@th\fam\thefam@\relax#2$}%
  29.  \ifdim\accentdimen@=\z@\DN@{\mathaccent#1{#2}}%
  30.   \setbox\tw@\hbox{\unbracefonts@$\m@th\fam\thefam@\relax#2\theskewchar@$}%
  31.   \setbox4=\hbox{$\m@th\ifnum\skewcharcount@=\m@ne\else
  32.    \mathchar\skewcharcount@\fi$}%
  33.   \global\accentdimen@\wd\tw@\global\advance\accentdimen@-\wdz@
  34.   \global\advance\accentdimen@-\wd4
  35.   \global\multiply\accentdimen@\tw@
  36.   \dimentomu@\global\advance\accentmu@\@ne
  37.  \else\DN@{{\mathaccent#1{#2\mkern\accentmu@ mu}%
  38.     \mkern-\accentmu@ mu}{}}\fi
  39.  \next@}
  40. \Makeacc@\Hat{05E}
  41. \Makeacc@\Check{014}
  42. \Makeacc@\Tilde{07E}
  43. \Makeacc@\Acute{013}
  44. \Makeacc@\Grave{012}
  45. \Makeacc@\Dot{05F}
  46. \Makeacc@\Ddot{07F}
  47. \Makeacc@\Breve{015}
  48. \Makeacc@\Bar{016}
  49. \def\Vec{\RIfM@\DN@{\mathaccent@{"017E }}\else
  50.  \DN@{\nonmatherr@\Vec}\fi\next@}
  51. \def\newbox@{\alloc@@4\box\chardef\insc@unt}
  52. \def\accentedsymbol#1#2{\expandafter\newbox@\csname\exstring@#1@box\endcsname
  53.  \setbox\csname\exstring@#1@box\endcsname\hbox{$\m@th#2$}%
  54.  \define#1{\copy\csname\exstring@#1@box\endcsname{}}}
  55. \catcode`\@=\active
  56.